From: Richard Stallman <rms@gnu.org>
Date: Sun, 24 Feb 2019 16:45:41 +0000 (-0800)
Subject: Don't clobber epa-mail-aliases
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~3939
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=5a513470276f1f48ee44f4409a323ba526c18f4e;p=emacs.git

Don't clobber epa-mail-aliases

* lisp/epa-mail.el (epa-mail-default-recipients):
Copy elements of epa-mail-aliases; don't clobber them.
---

diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el
index ce71ed8f9e4..1bb8d9bfde1 100644
--- a/lisp/epa-mail.el
+++ b/lisp/epa-mail.el
@@ -150,7 +150,7 @@ If no one is selected, default secret key is used.  "
 		   (mapcar
 		    (lambda (recipient)
 		      (let ((tem (assoc recipient epa-mail-aliases)))
-			(if tem (cdr tem)
+			(if tem (copy-sequence (cdr tem))
 			  (list recipient))))
 		    real-recipients)))
       )))